extern E_f slapy2_(real *x, real *y);
